home *** CD-ROM | disk | FTP | other *** search
/ Ah My Goddess / Ah My Goddess.iso / pc / stage / ending.dxr / 00002.ls < prev    next >
Encoding:
Text File  |  1997-09-08  |  780 b   |  46 lines
  1. on lfxkeycontrol
  2.   dontPassEvent()
  3.   set the keyDownScript to "checkKey"
  4. end
  5.  
  6. on lfxkeycontroloff
  7.   dontPassEvent()
  8.   set the keyDownScript to EMPTY
  9. end
  10.  
  11. on checkkey
  12.   global gvmacorwin, glkeyset, gvtempo, gvpictnum, glpictlist, gvmovpouse, gvmovpoint, gvmovhelppoint, gvmovwait, gvlmovie
  13.   dontPassEvent()
  14.   case getPos(glkeyset, the keyCode) of
  15.     1:
  16.       nothing()
  17.       cursor(-1)
  18.       go(1, "MENU")
  19.     2:
  20.       nothing()
  21.     3:
  22.       nothing()
  23.     4:
  24.       nothing()
  25.     5:
  26.       nothing()
  27.     6:
  28.       nothing()
  29.     7:
  30.       nothing()
  31.     8:
  32.       nothing()
  33.       lfxsoundplus()
  34.     9:
  35.       nothing()
  36.       lfxsoundmin()
  37.   end case
  38.   if gfxexitmovie() then
  39.     if the frame < the marker of "End" then
  40.       go("End")
  41.     else
  42.       go("AllEnd")
  43.     end if
  44.   end if
  45. end
  46.